BBS in a Box 7/BBS in a Box - Macintosh - Volume VII (BBS in a Box) (January 1993).iso/Files/Bus/H-L/LDCat3.5d.cpt/LDCat3.5d Folder/Laser Disc Catalog/stack_-1.xml

Extensible Markup Language | 1992-09-10 | 29KB | 30 lines

<?xml version="1.0" encoding="utf-8" ?>
<!DOCTYPE stack PUBLIC "-//Apple, Inc.//DTD stack V 2.0//EN" "" >
<stack>
    <name>in</name>
    <id>-1</id>
    <cardCount>8</cardCount>
    <cardID>2836</cardID>
    <listID>2071</listID>
    <cantModify><false /></cantModify>
    <cantDelete><true /></cantDelete>
    <cantAbort><false /></cantAbort>
    <cardSize>
        <width>512</width>
        <height>342</height>
    </cardSize>
    <script>••••••••••••••••••••••••••• OPENING CREDITS ••••••••••••••••••••••••••••LASER DISC CATALOGVERSION 3.5dTHE LASER DISC CATALOG STACK IS COPYRIGHT ©1992BY MARK CALICE • ALL RIGHTS RESERVED WORLDWIDE.THIS STACK IS SHAREWARE BUT NOT PUBLIC DOMAIN!  THIS MEANS YOU MAY NOTMODIFY IT, SELL IT, INCLUDE IT ON ANY SHAREWARE/PUBLIC DOMAIN DISK ORBUNDLE IT FOR COMMERCIAL DISTRIBUTION WITHOUT MY WRITTEN PERMISSION.PLEASE SEND ALL COMMENTS AND BUG REPORTS TO:Ardenwood Software34766 Monaco CommonFremont, CA 94555E-MAIL TO…America Online: MarkC17Compuserve: 71101,645GEnie: M.CALICE••••••••••••••••••••••••••••••••••••••••••••••••••••••••••••••••••••••••THE EXTERNALS USED IN THIS STACK:-- OSCAR HILLS: MultiScroll1.0 XCMD ©1988-- JAY HODGDON: ChangeCurs1.0, Progress2.0 XCMDs and-- FileVersion1.0 XFCN ©1988/89-- STEVE MALLER: ColorIsOn1.0 XFCN ©1988-89-- DEAN WETTE: SetColCrsr1.2 XFCN ©1990-- JOHN PUGH: HPopUpMenu2.7.1 XFCN ©1990-- FRÉDÉRIC RINALDI: SaveCurrentGlobals1.0, ClearStackGLobals1.0,-- Textoid3.5, FullRename1.4, FullBalloons1.0 XCMDs and-- ResText1.4, StrWidth1.0 XFCNs ©1990-91-- J. DAVID SEXTON: NewTextFile1.0 XCMD ©1991-- MARK CALICE: IsNum1.0, WordCap1.0, AllCap1.0, CalcSecs1.0,-- AddTimes1.0 XFCNs ©1992••••••••••••••••••••••••••••••••••••••••••••••••••••••••••••••••••••••••on openStackSaveCurrentGlobalsglobal stacks,hypVers,num1,num2,num3,num4,isColor,initScroll,locOffset,svLvlif stacks is empty then getHomeInfoset cantAbort of this stack to trueset cantPeek of this stack to trueput the userLevel into svLvlset the userLevel to 4if item 4 of screenRect() > 342 then show menubarelse hide menubarhide msg-- CENTER CATALOG IF MONITOR IS LARGER THAN STANDARD 9”put bg fld "OffsetPref" of cd id 4538 into locOffsetput width of cd window into xput height of cd window into yset loc of cd window to locStuff(x,y)put the short version into hypVersif hypVers < 2.1 thenput short name of this stack into sNameput "THIS STACK REQUIRES HYPERCARD v2.1 OR LATER!" & return & return & "You are currently running HyperCard version “" & hypVers & "”!" into dTbeep 3get WindowScript("VersionWarn",dT,1290)set the userLevel to svLvlset lockMessages to trueset cursor to watchvisual barn door close fast to blackvisual iris open fast to inversevisual dissolve fastgo Homeset cantAbort of stack sName to falseexit openStackend ifput 0 into num1put 0 into num2put 0 into num3put 0 into num4put ColorIsOn() into isColorput 0 into initScrollpush recent cdset cantAbort of this stack to falseif wrongStack() then pass openStackCreateCatMenuspass openStackend openStackon resumeStack -- RECREATE NAV BUTTONS AND MENUSif wrongStack() then pass resumeStackif id of this bg = 2715 or id of this bg = 3770 thenCreateDataNavCreateCatMenuselse if id of this bg = 4211 or id of this bg = 4724 thenCreateHelpNavCreateCatMenusDisableCatNavMenuDisableCatMenuelseCreateCatMenusDisableCatNavMenuDisableCatMenuend ifpass resumeStackend resumeStackon resumeif wrongStack() then pass resumeCreateCatMenuspass resumeend resumeon mouseEnterSetCurs 6069end mouseEnteron mouseWithinglobal sysVersif sysVers ≥ 7 thenget word 1 to 2 of the target && number of the targetFullBalloons "IsShowing"if not the result and it ≠ the selectedField then send mouseEnter to the targetend ifend mouseWithinon idleglobal HaveProgress,isColorif HaveProgress is true then close window "Progress"if there is a window "Prompt" then close window "Prompt"if there is a bg btn "Home" thenif shiftCommand() thenset icon of bg btn "Home" to "Finder"elseif icon of bg btn "Home" is not "Home" then set icon of bg btn "Home" to "Home"end ifend ifif ColorIsOn() ≠ isColor then put ColorIsOn() into isColorpass idleend idleon doMenu whichif first word of which = "New" thenget short name of this bgif it = "LD Data" and number of cds in bg it ≥ 5 thenif number of cds in bg it > 5 thengo first cd in bg itdoMenu "Delete Card"end ifput "LASER DISC CATALOG DEMO ALERT" into wTput "I’ll Do It" into b1Nput "Sorry… but you are limited to only 5 Laser Discs in this demo version of the Laser Disc Catalog." && ¬" Click the ‘Help’, ‘Info’ and ‘Info ID’ buttons for registration information.  Help support shareware!" into dTbeep 1get oneBtnAutoPrompt(wT,b1N,dT,1290)Chghiliteexit to HyperCardelsepass doMenuend ifelse if first word of which = "Print" thenPleaseRegisterelse if which = "Compact Stack" thenif the diskSpace > size of this stack * 2 thenget the freeSize of this stackif it = 0 thenDoPrompt "No compaction necessary!",1330wait 1 secclose window "Prompt"elsepass doMenuend ifelseput "COMPACT ALERT" into wTput "OK" into bNput "Sorry… but you do not have sufficient space on this volume to compact the Laser Disc Catalog!" into dTbeep 1put oneBtnAutoPrompt(wT,bN,dT,1290) into dlogResultend ifelsepass doMenuend ifend doMenuon enterKeyglobal vsif vs ≥ 18 and vs ≤ 32 thenlock screentype returnif the result is empty thenget last word of foundLine()if it ≠ vs thenput it into vsdo setField(it)end ifend ifunlock screenelsepass enterKeyend ifend enterKeyon CatalogInfoglobal isColorset cantAbort of this stack to trueif isColor thenpicture "cVersion",resource,dialog,false,0show window "cVersion"wait until the mouseClickclose window "cVersion"cAddresselsepicture "Version",resource,dialog,false,0show window "Version"wait until the mouseClickclose window "Version"bAddressend ifset cantAbort of this stack to falseend CatalogInfoon cAddresspicture "cAddress",resource,dialog,false,0show window "cAddress"wait until the mouseClickclose window "cAddress"end cAddresson bAddresspicture "Address",resource,dialog,false,0show window "Address"wait until the mouseClickclose window "Address"end bAddresson SetCurs whichglobal isColorif isColor thenSetColCrsr whichelseChangeCurs whichend ifend SetCurson SelectWholeLine lineNumber,theField-- SELECTS A WHOLE LINE OF TEXT, INCLUDING THE FINAL RETURN CHARACTERput line lineNumber of the value of theField into theTextif theText is not empty thenput (number of chars of line 1 to lineNumber of ¬the value of theField) + 1 into endChardo "select char (endChar - length(theText)) to endChar of" ¬&& theFieldend ifend SelectWholeLineon TargSetset hilite of the target to trueend TargSeton Chghiliteif word 2 of the long name of the target is "button" thenset hilite of the target to falseend ifend Chghiliteon SetLocksTruelock screenlock messagesset lockRecent to trueend SetLocksTrueon SetLocksFalseset lockRecent to falseunlock messagesunlock screenend SetLocksFalseon ShowLinerNotesset hilite of bg btn "LinerNotes" to trueshow bg fld "Liner Notes"show bg btn "Liner Notes"hide bg btn "Scroller"end ShowLinerNoteson HideLinerNoteshide bg fld "Liner Notes"hide bg btn "Liner Notes"set hilite of bg btn "LinerNotes" to falseshow bg btn "Scroller"set scroll of bg fld "Liner Notes" to 0end HideLinerNoteson DoProgress promptStr1global ProgressLocput promptStr1 & return & "Please be patient…" && " Type “" & numToChar(17) & ".” to cancel." into promptStr2if ProgressLoc is not empty then -- SHOW IT WHERE IT LAST WASput item 1 of ProgressLoc into theLeftput item 2 of ProgressLoc into theTopProgress standard,windoid,theLeft,theTopelse Progress standard,windoid -- OR CENTER IT THE FIRST TIMEset the prompt of window "Progress" to promptStr2end DoProgresson TransferAlert num,wtype1,wtype2,wiconput "You have successfully transferred" && "•" && num && "•" && wtype1 & wtype2 & "." into dTDoPrompt dT,wiconflashput 0 into countrepeat until the mouseClickif count = 10 thenflashput 0 into countend ifSetCurs 16200wait 20SetCurs 16201wait 20add 1 to countend repeatclose window "Prompt"end TransferAlerton PromptAlert dT,wiconbeep 1DoPrompt dT && " Please try again…",wiconwait 3 secsclose window "Prompt"end PromptAlerton TimeAlertput "TIME ENTRY ALERT" into wTput "OK" into b1Nput "You have made an invalid time entry.  Please try again…" into dTbeep 1get oneBtnAutoPrompt(wT,b1N,dT,1320)end TimeAlertfunction SearchFailAlertglobal findStringput "SEARCH FAILURE" into wTput "Yes" into b1Nput "No" into b2Nput "Could not find “" & findString & "”!  Would you like to try again?" into dTbeep 1get twoBtnAutoPrompt(wT,b1N,b2N,dT,1320)return itend SearchFailAlert-- ••• CATALOG MENU SCRIPTS: •••••••••••••••••••••••••••••••••••••••••••-- THE FOLLOWING SCRIPTS DESCRIBE ALL CATALOG MENU OPERATIONSon CreateCatMenusif wrongStack() then pass CreateCatMenusif "Catalog" is in the menus then exit CreateCatMenus-- MODIFY THE APPLE MENUif "Apple" is in the menus then put "About the Catalog…" into menuItem 1 of menu "Apple" with menuMsg "CatalogInfo"-- MODIFY THE FILE MENUif there is a menuItem "Print Field..." in menu "File" then delete menuItem "Print Field..." of menu "File"if there is a menuItem "Print Card" in menu "File" then delete menuItem "Print Card" of menu "File"if there is a menuItem "Print Stack..." in menu "File" then delete menuItem "Print Stack..." of menu "File"if there is a menuItem "Print Report..." in menu "File" then delete menuItem "Print Report..." of menu "File"-- MODIFY THE EDIT MENUrepeat with i = number of menuItems in menu "Edit" down to 1if menuItem i in menu "Edit" = "Window…" thenput "-" before menuItem i of menu "Edit"next repeatelse if menuItem i in menu "Edit" = "Clear" then exit repeatelse delete menuItem i of menu "Edit"end repeat-- MODIFY THE REMAINING MENUSif "Style" is in the menus then delete menu "Style"if "Font" is in the menus then delete menu "Font"if "Objects" is in the menus then delete menu "Objects"if "Tools" is in the menus then delete menu "Tools"if "Go" is in the menus then delete menu "Go"-- CREATE OR MODIFY THE NAVIGATION MENUif "Navigation" is in the menus thenget name of menuItem 1 of menu "Navigation"if it ≠ "Recent" then delete menu "Navigation"end ifif "Navigation" is not in the menus thencreate menu "Navigation"put CatNavMenuItems() into menu "Navigation" with menuMsg CatNavMenuMsgs()repeat with i = 1 to number of menuItems of menu "Navigation"set commandChar of menuItem i of menu "Navigation" to item i of CatNavMenuCmds()end repeatelseModifyCatNavMenuend if-- CREATE THE CATALOG MENUcreate menu "Catalog"put CatMenuItems() into menu "Catalog" with menuMsg CatMenuMsgs()repeat with i = 1 to number of menuItems of menu "Catalog"set commandChar of menuItem i of menu "Catalog" to item i of CatMenuCmds()end repeatend CreateCatMenusfunction CatNavMenuItemsif wrongStack() then pass CatNavMenuItemsreturn "Recent,-,First,Prev,Next,Last,-,Help,-,Labels…"end CatNavMenuItemsfunction CatNavMenuMsgsif wrongStack() then pass CatNavMenuMsgsreturn ",,go first cd in this bg,go prev cd in this bg,go next cd in this bg,go last cd in this bg,,Cmi 12,,Cmi 11"end CatNavMenuMsgsfunction CatNavMenuCmdsif wrongStack() then pass CatNavMenuCmdsreturn "R,,1,2,3,4,,H,,L"end CatNavMenuCmdson ModifyCatNavMenuset name of menuItem 8 of menu "Navigation" to "Help"set menuMsg of menuItem 8 of menu "Navigation" to item 8 of CatNavMenuMsgs()set commandChar of menuItem 8 of menu "Navigation" to "H"set name of menuItem 10 of menu "Navigation" to "Labels…"set menuMsg of menuItem 10 of menu "Navigation" to item 10 of CatNavMenuMsgs()set commandChar of menuItem 10 of menu "Navigation" to "L"end ModifyCatNavMenuon EnableCatNavMenuenable menuItem 3 in menu "Navigation"enable menuItem 4 in menu "Navigation"enable menuItem 5 in menu "Navigation"enable menuItem 6 in menu "Navigation"set name of menuItem 8 of menu "Navigation" to "Help"set menuMsg of menuItem 8 of menu "Navigation" to item 8 of CatNavMenuMsgs()set commandChar of menuItem 8 of menu "Navigation" to "H"enable menuItem 10 in menu "Navigation"end EnableCatNavMenuon DisableCatNavMenudisable menuItem 3 in menu "Navigation"disable menuItem 4 in menu "Navigation"disable menuItem 5 in menu "Navigation"disable menuItem 6 in menu "Navigation"set name of menuItem 8 of menu "Navigation" to "Return to Catalog"set menuMsg of menuItem 8 of menu "Navigation" to "pop cd"set commandChar of menuItem 8 of menu "Navigation" to "B"disable menuItem 10 in menu "Navigation"end DisableCatNavMenufunction CatMenuItemsif wrongStack() then pass CatMenuItemsreturn "Preferences…,-,Sort,Search…,New/Update…,Scan…,Delete…,Edit…,Options…,I/O…,Liner Notes"end CatMenuItemsfunction CatMenuMsgsif wrongStack() then pass CatMenuMsgsreturn "DoPrefs,,Cmi 2,Cmi 3,Cmi 4,Cmi 5,Cmi 6,Cmi 7,Cmi 8,Cmi 9,Cmi 10"end CatMenuMsgsfunction CatMenuCmdsif wrongStack() then pass CatMenuCmdsreturn "K"end CatMenuCmdson Cmi numsend mouseUp to bg btn numend Cmion DisableCatMenurepeat with t = 3 to the number of menuItems of menu "Catalog"disable menuItem t of menu "Catalog"end repeatend DisableCatMenuon DisposeCatMenuif wrongStack() then pass DisposeCatMenuif "Catalog" is in the menus then delete menu "Catalog"end DisposeCatMenuon DoPrefsglobal isColor,locOffsetput "+-" into signsput "LASER DISC CATALOG PREFERENCES" into wTput empty into wPput "Set the Catalog’s default operation.  Please use the correct Offset format (-0,+0)." into dTput bg fld "WordCap" of cd id 4538 into r2Hlif r2Hl = true thenput false into r1Hlelseput true into r1Hlput false into r2Hlend ifput locOffset into oTif isColor then put "cAutoCentering" into pNelse put "AutoCentering" into pNrepeatget WindowScript("Preferences",wT,wP,dT,r1Hl,r2Hl,oT,pN,1520)if it is empty thenexit DoPrefselseput it into prefs-- CHECK TO SEE IF OFFSET IS CORRECTif line 4 of prefs is not empty thenput item 1 of line 4 of prefs into xput item 2 of line 4 of prefs into yif char 1 of x is not in signs or char 1 of y is not in signs or "," is not in line 4 of prefs or length(x) > 4 or length(y) > 4 thenput "You have made an illegal offset entry." into wtextPromptAlert wtext,1320put line 2 of prefs into r1Hlput line 3 of prefs into r2Hlput line 4 of prefs into oTnext repeatelsedelete char 1 of xdelete char 1 of yput empty into temp1put empty into temp2repeat with i = 1 to length(x)if IsNum(char i of x) = false thenput false into temp1exit repeatend ifend repeatrepeat with i = 1 to length(y)if IsNum(char i of y) = false thenput false into temp2exit repeatend ifend repeatif temp1 is not empty or temp2 is not empty thenput "You have made an illegal offset entry." into wtextPromptAlert wtext,1320put line 2 of prefs into r1Hlput line 3 of prefs into r2Hlput line 4 of prefs into oTnext repeatend ifput line 2 of prefs into r1Hlput line 3 of prefs into r2Hlput line 4 of prefs into oTend ifelseput line 2 of prefs into r1Hlput line 3 of prefs into r2Hlput "+0,+0" into oTend ifend ifexit repeatend repeatput r2Hl into bg fld "WordCap" of cd id 4538put oT into locOffsetput locOffset into bg fld "OffsetPref" of cd id 4538put width of cd window into xput height of cd window into yput locStuff(x,y) into putWhereset loc of cd window to putWhereend DoPrefs-- ••• END CATALOG MENU SCRIPTS: •••••••••••••••••••••••••••••••••••••••function wrongStackget the value of word 2 of the long name of mereturn (it is not line 1 of the stacks)end wrongStack-- THE FOLLOWING SCRIPTS DESCRIBE ALL DATA BG NAVIGATION PALETTE OPERATIONSon CreateDataNavglobal isColorif isColor thenput "cData Bkgnd" into wplteelseput "Data Bkgnd" into wplteend ifget id of this bgif it = 2715 then palette wplte,bg fld "NavBtnLoc" of cd id 5101else if it = 3770 then palette wplte,bg fld "NavBtnLoc" of cd id 4538end CreateDataNavon CleanUpDataNavif there is a window "cData Bkgnd" or there is a window "Data Bkgnd" thenglobal isColorif isColor thenput "cData Bkgnd" into wplteelseput "Data Bkgnd" into wplteend ifget id of this bgif it = 2715 then put loc of window wplte into bg fld "NavBtnLoc" of cd id 5101else if it = 3770 then put loc of window wplte into bg fld "NavBtnLoc" of cd id 4538close window wplteend ifend CleanUpDataNav-- THE FOLLOWING SCRIPTS DESCRIBE ALL HELP BG NAVIGATION PALETTE OPERATIONSon CreateHelpNavglobal isColorif isColor thenput "cHelp Bkgnd" into wplteelseput "Help Bkgnd" into wplteend ifget id of this bgif it = 4211 then palette wplte,bg fld "NavBtnLoc" of cd id 5101else if it = 4724 then palette wplte,bg fld "NavBtnLoc" of cd id 4538end CreateHelpNavon CleanUpHelpNavif there is a window "cHelp Bkgnd" or there is a window "Help Bkgnd" thenglobal isColorif isColor thenput "cHelp Bkgnd" into wplteelseput "Help Bkgnd" into wplteend ifget id of this bgif it = 4211 then put loc of window wplte into bg fld "NavBtnLoc" of cd id 5101else if it = 4724 then put loc of window wplte into bg fld "NavBtnLoc" of cd id 4538close window wplteend ifend CleanUpHelpNav-- THE FOLLOWING SCRIPTS DESCRIBE ALL NAVIGATION PALETTE FUNCTIONSon GoFirstCdget id of this bgif it = 2715 or it = 3770 thenif short id of this cd ≠ short id of first cd in bg id it thenvisual wipe right fast to blackvisual scroll right fastgo first cd in bg id itelseDoPrompt "But you already are on the first card.",1320wait 1 secclose window "Prompt"end ifelsevisual wipe right fast to blackvisual scroll right fastgo first cd in bg "LD Data"end ifend GoFirstCdon GoPrevCdvisual scroll right fastgo prev cd in this bgend GoPrevCdon GoNextCdvisual scroll left fastgo next cd in this bgend GoNextCdon GoLastCdget id of this bgif it = 2715 or it = 3770 thenif short id of this cd ≠ short id of last cd in bg id it thenvisual wipe left fast to blackvisual scroll left fastgo last cd in bg id itelseDoPrompt "But you already are on the last card.",1320wait 1 secclose window "Prompt"end ifelsevisual wipe left fast to blackvisual scroll left fastgo last cd in bg "LD Data"end ifend GoLastCd-- DETERMINES WHAT DISC VOL LEVEL A DISC IS SET TOfunction wVSput short name of this bg into bif b = "CD Data" thenput 6 into nput "Vol" into welse if b = "LD Data" thenput 8 into nput "Side" into wend ifrepeat with c = 1 to nif hilite of bg btn (w && c) is true then return cend repeatend wVS-- DETERMINES WHAT DISC VOL LEVEL A DISC SHOULD BE SET TOfunction cVSput short name of this bg into bif b = "CD Data" thenput 6 into nput 31 into lnput "Volumes" into welse if b = "LD Data" thenput 8 into nput 33 into lnput "Sides" into wend ifput bg fld w into zput 2 into drepeat with r = n down to 1if bg fld id (ln - d) is not empty thenif z ≠ r thenreturn rexit repeatelsereturn zend ifelseadd 2 to dend ifif r = 1 then return 1end repeatend cVSfunction setField wfldif wfld = 17 or wfld = 18 thenreturn "SetLD1"else if wfld = 19 or wfld = 20 thenreturn "SetLD2"else if wfld = 21 or wfld = 22 thenreturn "SetLD3"else if wfld = 23 or wfld = 24 thenreturn "SetLD4"else if wfld = 25 or wfld = 26 thenreturn "SetLD5"else if wfld = 27 or wfld = 28 thenreturn "SetLD6"else if wfld = 29 or wfld = 30 thenreturn "SetLD7"else if wfld = 31 or wfld = 32 thenreturn "SetLD8"else if wfld = 33 thenreturn ShowLinerNoteselsereturn emptyend ifend setFieldfunction optionOnlyif optionKey() = down and shiftKey() = up and commandKey() = up then return trueelse return falseend optionOnlyfunction shiftCommandif shiftKey() = down and commandKey() = down and optionKey() = up then return trueelse return falseend shiftCommandon ToggleLib inum,idnumput 2 into wrepeat with n = idnum to idnum + 2if n = the id of target thenif last char of inum = 0 thenput 1 into last char of inumset icon of target to inumelseput 0 into last char of inumset icon of target to inumend ifadd 1 to welseadd 1 to wset icon of bg btn id n to ("16" & w & "1")end ifend repeatend ToggleLibfunction oneBtnAutoPrompt wT,b1N,dT,iNput empty into wPput StrWidth(dT) into nput (n div 241) + 1 into nlinesput 16 * nlines into dHput 87 into wHput "220,52" into b1Pif nlines > 2 thenadd 16 * (nlines - 2) to wHadd 16 * (nlines - 2) to item 2 of b1Pend ifget WindowScript("1BtnAnsDLOG",wT,wH,wP,b1N,b1P,dT,dH,iN)return itend oneBtnAutoPromptfunction twoBtnAutoPrompt wT,b1N,b2N,dT,iNput empty into wPput StrWidth(dT) into nput (n div 241) + 1 into nlinesput 16 * nlines into dHput 87 into wHput "116,52" into b1Pput "224,56" into b2Pif nlines > 2 thenadd 16 * (nlines - 2) to wHadd 16 * (nlines - 2) to item 2 of b1Padd 16 * (nlines - 2) to item 2 of b2Pend ifif b2N = "Cancel" or b2N = "No" or b2N = "Not Now" thenget WindowScript("2BtnAnsDLOGw/c",wT,wH,wP,b1N,b1P,b2N,b2P,dT,dH,iN)elseget WindowScript("2BtnAnsDLOG",wT,wH,wP,b1N,b1P,b2N,b2P,dT,dH,iN)end ifreturn itend twoBtnAutoPromptfunction threeBtnAutoPrompt wT,b1N,b2N,b3N,dT,iNput empty into wPput StrWidth(dT) into nput (n div 241) + 1 into nlinesput 16 * nlines into dHput 87 into wHput "12,52" into b1Pput "120,56" into b2Pput "224,56" into b3Pif nlines > 2 thenadd 16 * (nlines - 2) to wHadd 16 * (nlines - 2) to item 2 of b1Padd 16 * (nlines - 2) to item 2 of b2Padd 16 * (nlines - 2) to item 2 of b3Pend ifif b3N = "Cancel" or b3N = "No" or b3N = "Not Now" thenget WindowScript("3BtnAnsDLOGw/c",wT,wH,wP,b1N,b1P,b2N,b2P,b3N,b3P,dT,dH,iN)elseget WindowScript("3BtnAnsDLOG",wT,wH,wP,b1N,b1P,b2N,b2P,b3N,b3P,dT,dH,iN)end ifreturn itend threeBtnAutoPromptfunction oneBtnAskAutoPrompt wT,b1N,dT,aT,kF,iNput empty into wPput StrWidth(dT) into nput (n div 254) + 1 into nlinesput 16 * nlines into dHput 103 into wHput "220,68" into b1Pput "56,32" into aPif nlines > 1 thenadd 16 * (nlines - 1) to wHadd 16 * (nlines - 1) to item 2 of b1Padd 16 * (nlines - 1) to item 2 of aPend ifif aT ≠ empty then put "0-" & length(aT) into aTSelse put empty into aTSget WindowScript("1BtnAskDLOG",wT,wH,wP,b1N,b1P,dT,dH,aT,aP,aTS,kF,iN)return itend oneBtnAskAutoPromptfunction twoBtnAskAutoPrompt wT,b1N,b2N,dT,aT,kF,iNput empty into wPput StrWidth(dT) into nput (n div 254) + 1 into nlinesput 16 * nlines into dHput 103 into wHput "116,68" into b1Pput "224,72" into b2Pput "56,32" into aPif nlines > 1 thenadd 16 * (nlines - 1) to wHadd 16 * (nlines - 1) to item 2 of b1Padd 16 * (nlines - 1) to item 2 of b2Padd 16 * (nlines - 1) to item 2 of aPend ifif aT ≠ empty then put "0-" & length(aT) into aTSelse put empty into aTSget WindowScript("2BtnAskDLOGw/c",wT,wH,wP,b1N,b1P,b2N,b2P,dT,dH,aT,aP,aTS,kF,iN)return itend twoBtnAskAutoPromptfunction displayList wT,b1N,b2N,b2V,dT,Lt,Ls,Llput 189 into wHput 152 into wWput "244,123" into wPif b2V then put "6,156" into b1Pelse put "42,156" into b1Pput "86,160" into b2Pput 1 into Lwrepeat with i = 1 to number of lines of Ltput StrWidth(line i of Lt) + 48 into tempLwif tempLw > Lw then put tempLw into Lwend repeatif Lw > wW thenif Lw > 499 then put 499 into Lwget Lw - wWadd it to wWadd (it div 2) to item 1 of b1Padd (it div 2) to item 1 of b2Pend ifput StrWidth(dT) into nput (n div (wW - 15)) + 1 into nlinesif nlines > 1 thenadd 16 * (nlines - 1) to wHadd 16 * (nlines - 1) to item 2 of b1Padd 16 * (nlines - 1) to item 2 of b2Pend ifput dlogStuff(wW,wH) into xyPosput item 1 of xyPos into item 1 of wPif b2N = "Cancel" thenget WindowScript("DisplayListw/c",wT,wH,wW,wP,b1N,b1P,b2N,b2V,b2P,dT,Lt,Ls,Ll)elseget WindowScript("DisplayList",wT,wH,wW,wP,b1N,b1P,b2N,b2V,b2P,dT,Lt,Ls,Ll)end ifreturn itend displayListfunction timeOverageAutoPrompt wT,b1N,b2V,b2N,dT,iNput empty into wPput StrWidth(dT) into nput (n div 343) + 1 into nlinesput 16 * nlines into dHput 103 into wHput "212,68" into b1Pput "320,72" into b2Pif b2V = false then put "316,68" into b1Pif nlines > 3 thenadd 16 * (nlines - 3) to wHadd 16 * (nlines - 3) to item 2 of b1Padd 16 * (nlines - 3) to item 2 of b2Pend ifget WindowScript("TimeOverage",wT,wH,wP,b1N,b1P,b2V,b2N,b2P,dT,dH,iN)return itend timeOverageAutoPrompton DoPrompt dT,iNput StrWidth(dT) into nput (n div 400) + 1 into nlines -- SET MAX HORIZ WIDTH TO DISPLAY ON 1 LINEif nlines > 1 then put 400 into wWelse put n + 65 into wWput (16 * nlines) + 32 into wHput dlogStuff(wW,wH) into xyPosget WindowScript("Prompt",wW,wH,xyPos,dT,iN)end DoPrompt-- CALCULATES COORDINATES FOR AUTO CENTERING WINDOWS ON ANY SIZE MONITORfunction dlogStuff xPos,yPosput screenRect() into sizeput item 3 of size into screenXput item 4 of size into screenYput (screenX - xPos) / 2 into xcenterput (screenY - yPos) / 2 into ycenterput round(xcenter) & "," & round(ycenter) into xyreturn xyend dlogStuff-- CALCULATES COORDINATES FOR AUTO CENTERING STACK ON ANY SIZE MONITORfunction locStuff xPos,yPosput screenRect() into sizeif item 3 of size > 512 or item 4 of size > 342 thenglobal locOffsetget locOffsetput char 1 of item 1 of it into xoffdirdelete char 1 of item 1 of itput char 1 of item 2 of it into yoffdirdelete char 1 of item 2 of itput item 3 of size into screenXput item 4 of size into screenYput (screenX - xPos) / 2 into xcenterput (screenY - yPos) / 2 into ycenterif xoffdir = "+" then add item 1 of it to xcenterelse subtract item 1 of it from xcenterif yoffdir = "+" then add item 2 of it to ycenterelse subtract item 2 of it from ycenterput round(xcenter) & "," & round(ycenter) into xyelseput 0 & "," & 0 into xyend ifreturn xyend locStuffon suspendif wrongStack() then pass suspendreset menubarpass suspendend suspend-- HIDES NAV BUTTONS AND MENUS WHEN TEMPORARILY LEAVING STACKon suspendStackif wrongStack() then pass suspendStackCleanUpDataNavCleanUpHelpNavreset menubarpass suspendStackend suspendStackon closeStackglobal GlobalVarsList,svLvlget the freeSize of this stackif it > (the size of this stack *.05) thenput round(the value of it/1000) into numput "COMPACT LASER DISC CATALOG" into wTput "OK" into b1Nput "Not Now" into b2Nput "Would you like to reclaim" && num & "k of disk space by compacting the Laser Disc Catalog now?" into dTget twoBtnAutoPrompt(wT,b1N,b2N,dT,1340)if it is empty then -- NOT NOWset cursor to watchelse if line 1 of it = "OK" thendoMenu "Compact Stack"end ifend ifif short name of this stack is "Laser Disc Catalog" then put "351,317" into bg fld "NavBtnLoc" of cd id 4538CleanUpDataNavCleanUpHelpNavreset menubarset the userLevel to svLvlClearStackGLobalsget WindowScript("Distribution Splash")wait 3 secsclose window "Distribution Splash"visual iris close fast to blackvisual dissolve fast to grayvisual iris open fastpass closeStackend closeStackon PleaseRegisterput "LASER DISC CATALOG DEMO ALERT" into wTput "I’ll Do It" into b1Nput "Sorry… but this function is not available in this demo version of the Laser Disc Catalog." && ¬" Click the ‘Help’, ‘Info’ and ‘Info ID’ buttons for registration information.  Help support shareware!" into dTbeep 1get oneBtnAutoPrompt(wT,b1N,dT,1290)end PleaseRegister</script>
    <background id="2641" file="background_2641.xml" name="Introduction" />
    <background id="3770" file="background_3770.xml" name="LD Data" />
    <background id="4139" file="background_4139.xml" name="Sort" />
    <background id="4724" file="background_4724.xml" name="Help/Info" />
    <card id="2836" file="card_2836.xml" marked="false" name="Intro 1" owner="2641" />
    <card id="5857" file="card_5857.xml" marked="false" name="Intro 2" owner="2641" />
    <card id="5946" file="card_5946.xml" marked="false" name="Intro 3" owner="2641" />
    <card id="4970" file="card_4970.xml" marked="false" name="Info" owner="4724" />
    <card id="6259" file="card_6259.xml" marked="false" name="Help" owner="4724" />
    <card id="4538" file="card_4538.xml" marked="false" name="Sort" owner="4139" />
    <card id="5409" file="card_5409.xml" marked="false" name="" owner="3770" />
    <card id="8923" file="card_8923.xml" marked="true" name="" owner="3770" />
</stack>